home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / c / pcw.zip / QVCHAR.C < prev    next >
Text File  |  1990-01-16  |  1KB  |  37 lines
  1.  
  2. /***********************************************************/
  3. /* File Id.                  Qvchar.C                      */
  4. /* Author.                   Stan Milam.                   */
  5. /* Date Written.             11/09/88.                     */
  6. /*                                                         */
  7. /*           (c) Copyright 1989-90 by Stan Milam           */
  8. /*                                                         */
  9. /* Date Last Modified.                                     */
  10. /* Comments:  This routine is called to write a character  */
  11. /* vertically on the screen repeatedly.                    */
  12. /***********************************************************/
  13.  
  14. #include <dos.h>
  15. #include "pcw.i"
  16. #include "pcwproto.h"
  17.  
  18. int qvchar(int row, int col, int fcolor, int bcolor, char ch, int count) {
  19.  
  20.    int far  *scrnptr;
  21.    unsigned chrattr;
  22.    unsigned offset, scrnseg;
  23.    int mx_rows, mx_cols;
  24.    int page, pagesize;
  25.  
  26.    if (!chk_video_state(&mx_rows,&mx_cols)) return(0);
  27.  
  28.    page     = getpage();
  29.    pagesize = getpagesize();
  30.    scrnseg  = getscrnseg();
  31.    chrattr  = MK_ATTR(fcolor,bcolor) | ch;
  32.    offset   = MK_SCRNOFF(row, col);
  33.    scrnptr  = (int far *) MK_FP(scrnseg,offset);
  34.    Tvertchar(count, chrattr, scrnptr);
  35.    return(1);
  36. }
  37.